home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Logo / logo.3 < prev    next >
Text File  |  1989-01-27  |  286b  |  15 lines
  1. ;
  2. ;this is a recursive drawing function.
  3. ;
  4. to boxit :order
  5.    if :order = 0 [fd 2]
  6.          [boxit :order-1 lt 90 boxit :order-1 rt 90 boxit :order-1
  7.                          rt 90 boxit :order-1 lt 90 boxit :order-1]
  8. end
  9.  
  10. to demo
  11.     cs pu setpos [0 150] pd rt 90
  12.     boxit 4
  13. end
  14.  
  15.